home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 January / Ahoy_Magazine_86-01_1986_Double_L.d64 / sequential rec (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  698b  |  26 lines
  1. 0 rem << rr25-2 >>
  2. 10 rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  3. 20 rem  - sequential receiver -
  4. 30 rem     rupert report #25
  5. 40 rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  6. 50 rem  receive a sequential file
  7. 60 rem  from the rs-232 port
  8. 70 rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  9. 80 print chr$(147)
  10. 90 open 2,2,0,chr$(8)+chr$(0)
  11. 100 get#2,j$ :if (st and 8)=0 then  100 : rem clear the receive buffer
  12. 110 print"send file to  (1) printer, (2) disk, or (3) screen" : input a$
  13. 120 n=val(a$)
  14. 130 on n goto 150,160,180
  15. 140 goto 110 : rem  try again
  16. 150 open 1,4,4 : goto 190 :rem printer
  17. 160 input"save with what filename";f$
  18. 170 open 1,8,8,f$+",s,w" : goto 190
  19. 180 open 1,3    :rem screen
  20. 190 rem - receive data -
  21. 200 get#2,c$ : if c$="" then 200
  22. 210 print#1, c$;
  23. 220 if c$<>chr$(26) then 200
  24. 230 print#1 : close 1
  25. 240 close 2 : end
  26.